cClass ("TObj")
	cField("%mEnt")
	cField("#mX")
	cField("#mY")
	cField("#mZ")
cClose()

cClass ( "tNode" )
	cField "TObj obj"
cClose()

cClass ( "MyClass2" ) : cClose()

cClass ( "MyClass3" ) : cClose()

Local MyClass1 = cFind ( "tNode" )
Local MyClass2 = cFind ( "MyClass2" )
Local MyClass3 = cFind ( "MyClass3" )

Local t11=cNew(MyClass1) : cSet(t11,"Hello",0)
Local t21=cNew(MyClass2) : cSet(t21,"class 2-Instance 1",0)
Local t12=cNew(MyClass1) : cSet(t12,"The",0)
Local t13=cNew(MyClass1) : cSet(t13,"Nice",0)
Local t22=cNew(MyClass2) : cSet(t22,"class 2-Instance 2",0)
Local t31=cNew(MyClass3) : cSet(t31,"class 3 root",0)
Local t14=cNew(MyClass1) : cSet(t14,"World",0)

Print "members of "+cClassName(MyClass1)

cSet cFirst (MyClass1), "First of "+cClassName(MyClass1),0
cSet cLast (MyClass1), "Last of "+cClassName(MyClass1),0
cSet cBefore(cLast(MyClass1)), "Before Last",0
cSet cAfter(cFirst(MyClass1)), "After First",0

Print ""
Print "-"+cClassName(MyClass1)+"-"
Local f=cFirst(MyClass1)
While f
	Print "  * "+cGet(f,0)
	f=cAfter(f)
Wend
Print ""
Print "-"+cClassName(MyClass2)+"-"
f=cFirst(MyClass2)
While f
	Print "  * "+cGet(f,0)
	f=cAfter(f)
Wend
Print ""
Print "-"+cClassName(MyClass3)+"-"
f=cFirst(MyClass3)
While f
	Print "  * "+cGet(f,0)
	f=cAfter(f)
Wend
WaitKey
End

;~IDEal Editor Parameters:
;~C#Blitz3D